* subr.el (add-to-history): Fix delete usage.

Fixes: debbugs:12314

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 4d6210a16b989f1904bfe1e9d4eae8027629e053..b45d2fd823507be9ea75386c5072cf4eb7895dde 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,7 @@
+2012-09-08  Drew Adams  <drew.adams@oracle.com>
+
+       * subr.el (add-to-history): Fix delete usage (Bug#12314).
+
 2012-09-08  Chong Yidong  <cyd@gnu.org>
 
        * subr.el (syntax-after, syntax-class): Doc fix.

diff --git a/lisp/subr.el b/lisp/subr.el
index 4f273a92a6235ea2740dc5a893a4ac0ead5cdd06..21dd270caef24456c196cebb135af22075033224 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -1548,7 +1548,7 @@ if it is empty or a duplicate."
               (or keep-all
                   (not (equal (car history) newelt))))
       (if history-delete-duplicates
-         (delete newelt history))
+         (setq history (delete newelt history)))
       (setq history (cons newelt history))
       (when (integerp maxelt)
        (if (= 0 maxelt)